Monster Media 1996 #14/Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO/prog_bas/savbmp.zip/FORM2.FRM

Text File | 1996-01-02 | 6KB | 197 lines

VERSION 2.00
Begin Form Form2
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Form2"
   ClientHeight    =   4212
   ClientLeft      =   2196
   ClientTop       =   1776
   ClientWidth     =   4692
   Height          =   4536
   Left            =   2148
   LinkTopic       =   "Form2"
   ScaleHeight     =   4212
   ScaleWidth      =   4692
   Top             =   1500
   Width           =   4788
   Begin CommandButton Command1
      Caption         =   "OK"
      Height          =   495
      Left            =   1320
      TabIndex        =   8
      Top             =   3360
      Width           =   1455
   End
   Begin Frame Frame2
      Caption         =   "Options"
      Height          =   3855
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   4215
      Begin OptionButton Option2
         Caption         =   "16 Million Color bitmap"
         Height          =   315
         Index           =   3
         Left            =   360
         TabIndex        =   13
         Top             =   1260
         Width           =   2415
      End
      Begin OptionButton Option2
         Caption         =   "256-Color bitmap"
         Height          =   255
         Index           =   2
         Left            =   360
         TabIndex        =   10
         Top             =   960
         Width           =   1935
      End
      Begin OptionButton Option2
         Caption         =   "Monochrome bitmap"
         Height          =   255
         Index           =   0
         Left            =   360
         TabIndex        =   2
         Top             =   360
         Value           =   -1  'True
         Width           =   2175
      End
      Begin OptionButton Option2
         Caption         =   "16-Color bitmap"
         Height          =   255
         Index           =   1
         Left            =   360
         TabIndex        =   1
         Top             =   660
         Width           =   1935
      End
      Begin Frame Frame1
         Caption         =   "Monochrome Options"
         Height          =   1275
         Left            =   120
         TabIndex        =   3
         Top             =   1740
         Width           =   3975
         Begin CheckBox Check1
            Caption         =   "Negative Image"
            Height          =   255
            Left            =   240
            TabIndex        =   9
            Top             =   900
            Width           =   1935
         End
         Begin VScrollBar VScroll1
            Height          =   255
            Left            =   3480
            Max             =   0
            Min             =   255
            TabIndex        =   6
            Top             =   600
            Value           =   128
            Width           =   255
         End
         Begin OptionButton Option1
            Caption         =   "Nearest Color - Threshold:"
            Height          =   255
            Index           =   1
            Left            =   240
            TabIndex        =   5
            Top             =   600
            Width           =   2535
         End
         Begin OptionButton Option1
            Caption         =   "All Colors to Black"
            Height          =   315
            Index           =   0
            Left            =   240
            TabIndex        =   4
            Top             =   300
            Value           =   -1  'True
            Width           =   1935
         End
         Begin Label Label1
            BorderStyle     =   1  'Fixed Single
            Caption         =   " 128"
            Height          =   255
            Left            =   2880
            TabIndex        =   7
            Top             =   600
            Width           =   615
         End
      End
      Begin Frame Frame3
         Caption         =   "256-Color Options"
         Height          =   1275
         Left            =   120
         TabIndex        =   11
         Top             =   1740
         Visible         =   0   'False
         Width           =   3975
         Begin TextBox Text1
            Height          =   285
            Left            =   240
            TabIndex        =   15
            Text            =   "c:\vb\rainbow.dib"
            Top             =   900
            Width           =   3375
         End
         Begin CheckBox Check2
            Caption         =   "Convert to GreyScale"
            Height          =   255
            Left            =   240
            TabIndex        =   12
            Top             =   300
            Width           =   2415
         End
         Begin Label Label2
            Caption         =   "Use Palette from:"
            Height          =   195
            Left            =   240
            TabIndex        =   14
            Top             =   660
            Width           =   2415
         End
      End
   End
End
Option Explicit
'******************************************
'
'  This form lets you choose between
' the various options.  It is always loaded.
'  The choices are read out of the controls
' on this form in the module subroutines.
'
'*******************************************

Sub Check2_Click ()
  If Check2 Then
    Text1.Enabled = False
  Else
    Text1.Enabled = True
  End If
End Sub

Sub Command1_Click ()
  Me.Hide
  Frame2.Visible = True
End Sub

Sub Option2_Click (Index As Integer)
  If Index = 2 Then
    Frame1.Visible = False
    Frame3.Visible = True
  ElseIf Index = 0 Then
    Frame1.Visible = True
    Frame3.Visible = False
  Else
    Frame1.Visible = False
    Frame3.Visible = False
  End If
End Sub

Sub VScroll1_Change ()
  Label1 = Str$(VScroll1)
End Sub